/ Sexual Digital Arts: Lesbian / Sexual Digital Arts: Lesbian.iso / mac / LES_DATA / QT22 / QT22.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 02 b4 a1 f8 | 00 00 00 08 00 00 00 00 |........|........|
|00000010| 00 07 00 00 00 00 00 00 | 1b 99 00 00 1b 99 00 00 |........|........|
|00000020| 1b bf 00 00 1b bf 00 00 | 1b c1 00 00 1b c1 00 00 |........|........|
|00000030| 1b c1 6f 6e 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |..on sta|rtMovie.|
|00000040| 20 20 20 20 63 6f 6c 6f | 72 43 68 61 6e 67 65 0d |    colo|rChange.|
|00000050| 20 20 20 20 66 69 65 6c | 64 4d 61 6e 61 67 65 72 |    fiel|dManager|
|00000060| 0d 20 20 20 20 77 68 65 | 6e 20 6b 65 79 44 6f 77 |.    whe|n keyDow|
|00000070| 6e 20 74 68 65 6e 20 67 | 69 76 65 55 70 4b 65 79 |n then g|iveUpKey|
|00000080| 0d 65 6e 64 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |.end sta|rtMovie.|
|00000090| 0d 6f 6e 20 51 54 4f 68 | 74 73 75 6b 69 0d 20 20 |.on QTOh|tsuki.  |
|000000a0| 20 20 69 66 20 74 68 65 | 20 6d 6f 76 69 65 54 69 |  if the| movieTi|
|000000b0| 6d 65 20 6f 66 20 73 70 | 72 69 74 65 20 34 20 3c |me of sp|rite 4 <|
|000000c0| 20 74 68 65 20 64 75 72 | 61 74 69 6f 6e 20 6f 66 | the dur|ation of|
|000000d0| 20 63 61 73 74 20 22 51 | 54 32 32 4d 4f 56 22 20 | cast "Q|T22MOV" |
|000000e0| 74 68 65 6e 20 67 6f 20 | 74 6f 20 74 68 65 20 66 |then go |to the f|
|000000f0| 72 61 6d 65 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |rame.end| if.end |
|00000100| 51 54 4f 68 74 73 75 6b | 69 0d 0d 0d 0d 6f 6e 20 |QTOhtsuk|i....on |
|00000110| 66 69 65 6c 64 4d 61 6e | 61 67 65 72 0d 69 66 20 |fieldMan|ager.if |
|00000120| 74 68 65 20 76 6f 6c 75 | 6d 65 20 6f 66 20 73 6f |the volu|me of so|
|00000130| 75 6e 64 20 31 20 3d 20 | 30 20 74 68 65 6e 0d 70 |und 1 = |0 then.p|
|00000140| 75 74 20 22 31 22 20 69 | 6e 74 6f 20 66 69 65 6c |ut "1" i|nto fiel|
|00000150| 64 20 22 61 64 64 41 64 | 64 31 22 0d 65 6c 73 65 |d "addAd|d1".else|
|00000160| 0d 70 75 74 20 22 30 22 | 20 69 6e 74 6f 20 66 69 |.put "0"| into fi|
|00000170| 65 6c 64 20 22 61 64 64 | 41 64 64 31 22 0d 65 6e |eld "add|Add1".en|
|00000180| 64 20 69 66 0d 65 6e 64 | 20 66 69 65 6c 64 4d 61 |d if.end| fieldMa|
|00000190| 6e 61 67 65 72 0d 0d 0d | 0d 6f 6e 20 73 6f 75 6e |nager...|.on soun|
|000001a0| 64 43 68 65 63 6b 0d 69 | 66 20 66 69 65 6c 64 20 |dCheck.i|f field |
|000001b0| 22 61 64 64 41 64 64 31 | 22 20 3d 20 31 20 74 68 |"addAdd1|" = 1 th|
|000001c0| 65 6e 0d 53 6f 75 6e 64 | 30 0d 65 6c 73 65 20 0d |en.Sound|0.else .|
|000001d0| 73 6f 75 6e 64 32 35 35 | 0d 65 6e 64 20 69 66 0d |sound255|.end if.|
|000001e0| 65 6e 64 20 73 6f 75 6e | 64 43 68 65 63 6b 0d 0d |end soun|dCheck..|
|000001f0| 0d 0d 6f 6e 20 67 6f 6f | 64 42 75 74 74 6f 6e 20 |..on goo|dButton |
|00000200| 63 6f 6d 0d 70 75 74 20 | 69 74 65 6d 20 31 20 6f |com.put |item 1 o|
|00000210| 66 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |f the na|me of ca|
|00000220| 73 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |st the c|astNum o|
|00000230| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|00000240| 28 29 20 69 6e 74 6f 20 | 63 4e 61 6d 65 0d 72 65 |() into |cName.re|
|00000250| 70 65 61 74 20 77 68 69 | 6c 65 20 73 74 69 6c 6c |peat whi|le still|
|00000260| 44 6f 77 6e 28 29 0d 69 | 66 20 72 6f 6c 6c 4f 76 |Down().i|f rollOv|
|00000270| 65 72 28 63 6c 69 63 6b | 4f 6e 28 29 29 20 74 68 |er(click|On()) th|
|00000280| 65 6e 0d 73 65 74 20 74 | 68 65 20 63 61 73 74 4e |en.set t|he castN|
|00000290| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |um of sp|rite cli|
|000002a0| 63 6b 4f 6e 28 29 20 3d | 20 74 68 65 20 6e 75 6d |ckOn() =| the num|
|000002b0| 62 65 72 20 6f 66 20 63 | 61 73 74 20 28 63 4e 61 |ber of c|ast (cNa|
|000002c0| 6d 65 20 26 20 22 2c 44 | 6f 77 6e 22 29 0d 65 6c |me & ",D|own").el|
|000002d0| 73 65 20 0d 73 65 74 20 | 74 68 65 20 63 61 73 74 |se .set |the cast|
|000002e0| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|000002f0| 69 63 6b 4f 6e 28 29 20 | 3d 20 74 68 65 20 6e 75 |ickOn() |= the nu|
|00000300| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 28 63 4e |mber of |cast (cN|
|00000310| 61 6d 65 20 26 20 22 2c | 55 70 22 29 0d 65 6e 64 |ame & ",|Up").end|
|00000320| 20 69 66 0d 75 70 64 61 | 74 65 53 74 61 67 65 0d | if.upda|teStage.|
|00000330| 65 6e 64 20 72 65 70 65 | 61 74 0d 73 65 74 20 74 |end repe|at.set t|
|00000340| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|00000350| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 3d |rite cli|ckOn() =|
|00000360| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00000370| 61 73 74 20 28 63 4e 61 | 6d 65 20 26 20 22 2c 44 |ast (cNa|me & ",D|
|00000380| 6f 77 6e 22 29 20 0d 75 | 70 64 61 74 65 53 74 61 |own") .u|pdateSta|
|00000390| 67 65 0d 69 66 20 72 6f | 6c 6c 4f 76 65 72 28 63 |ge.if ro|llOver(c|
|000003a0| 6c 69 63 6b 4f 6e 28 29 | 29 20 74 68 65 6e 20 64 |lickOn()|) then d|
|000003b0| 6f 20 63 6f 6d 0d 65 6e | 64 20 67 6f 6f 64 42 75 |o com.en|d goodBu|
|000003c0| 74 74 6f 6e 0d 0d 6f 6e | 20 67 6f 6f 64 42 75 74 |tton..on| goodBut|
|000003d0| 74 6f 6e 32 20 63 6f 6d | 0d 70 75 74 20 69 74 65 |ton2 com|.put ite|
|000003e0| 6d 20 31 20 6f 66 20 74 | 68 65 20 6e 61 6d 65 20 |m 1 of t|he name |
|000003f0| 6f 66 20 63 61 73 74 20 | 74 68 65 20 63 61 73 74 |of cast |the cast|
|00000400| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|00000410| 69 63 6b 4f 6e 28 29 20 | 69 6e 74 6f 20 63 4e 61 |ickOn() |into cNa|
|00000420| 6d 65 0d 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |me.repea|t while |
|00000430| 73 74 69 6c 6c 44 6f 77 | 6e 28 29 0d 69 66 20 72 |stillDow|n().if r|
|00000440| 6f 6c 6c 4f 76 65 72 28 | 63 6c 69 63 6b 4f 6e 28 |ollOver(|clickOn(|
|00000450| 29 29 20 74 68 65 6e 0d | 73 65 74 20 74 68 65 20 |)) then.|set the |
|00000460| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|00000470| 65 20 63 6c 69 63 6b 4f | 6e 28 29 20 3d 20 74 68 |e clickO|n() = th|
|00000480| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|00000490| 20 28 63 4e 61 6d 65 20 | 26 20 22 2c 44 6f 77 6e | (cName |& ",Down|
|000004a0| 22 29 0d 65 6c 73 65 20 | 0d 73 65 74 20 74 68 65 |").else |.set the|
|000004b0| 20 63 61 73 74 4e 75 6d | 20 6f 66 20 73 70 72 69 | castNum| of spri|
|000004c0| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 3d 20 74 |te click|On() = t|
|000004d0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|000004e0| 74 20 28 63 4e 61 6d 65 | 20 26 20 22 2c 55 70 22 |t (cName| & ",Up"|
|000004f0| 29 0d 65 6e 64 20 69 66 | 0d 75 70 64 61 74 65 53 |).end if|.updateS|
|00000500| 74 61 67 65 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |tage.end| repeat.|
|00000510| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|00000520| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|00000530| 6e 28 29 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |n() = th|e number|
|00000540| 20 6f 66 20 63 61 73 74 | 20 28 63 4e 61 6d 65 20 | of cast| (cName |
|00000550| 26 20 22 2c 55 70 22 29 | 20 0d 75 70 64 61 74 65 |& ",Up")| .update|
|00000560| 53 74 61 67 65 0d 69 66 | 20 72 6f 6c 6c 4f 76 65 |Stage.if| rollOve|
|00000570| 72 28 63 6c 69 63 6b 4f | 6e 28 29 29 20 74 68 65 |r(clickO|n()) the|
|00000580| 6e 20 64 6f 20 63 6f 6d | 0d 65 6e 64 20 67 6f 6f |n do com|.end goo|
|00000590| 64 42 75 74 74 6f 6e 32 | 0d 0d 0d 6f 6e 20 73 6f |dButton2|...on so|
|000005a0| 75 6e 64 30 0d 73 65 74 | 20 74 68 65 20 76 6f 6c |und0.set| the vol|
|000005b0| 75 6d 65 20 6f 66 20 73 | 6f 75 6e 64 20 31 20 74 |ume of s|ound 1 t|
|000005c0| 6f 20 30 0d 65 6e 64 20 | 73 6f 75 6e 64 30 20 20 |o 0.end |sound0  |
|000005d0| 20 0d 0d 0d 6f 6e 20 73 | 6f 75 6e 64 32 35 35 0d | ...on s|ound255.|
|000005e0| 73 65 74 20 74 68 65 20 | 76 6f 6c 75 6d 65 20 6f |set the |volume o|
|000005f0| 66 20 73 6f 75 6e 64 20 | 31 20 74 6f 20 32 35 35 |f sound |1 to 255|
|00000600| 0d 65 6e 64 20 73 6f 75 | 6e 64 32 35 35 20 20 20 |.end sou|nd255   |
|00000610| 20 0d 0d 0d 0d 6f 6e 20 | 6c 6f 76 65 0d 67 6c 6f | ....on |love.glo|
|00000620| 62 61 6c 20 68 6f 6c 64 | 52 61 74 65 0d 73 65 74 |bal hold|Rate.set|
|00000630| 20 4e 20 3d 20 31 0d 70 | 75 74 20 74 68 65 20 74 | N = 1.p|ut the t|
|00000640| 69 6d 65 72 20 69 6e 74 | 6f 20 4e 0d 73 65 74 20 |imer int|o N.set |
|00000650| 68 6f 6c 64 52 61 74 65 | 20 3d 20 31 0d 72 65 70 |holdRate| = 1.rep|
|00000660| 65 61 74 20 77 68 69 6c | 65 20 74 68 65 20 74 69 |eat whil|e the ti|
|00000670| 6d 65 72 20 3c 20 4e 20 | 2b 20 68 6f 6c 64 52 61 |mer < N |+ holdRa|
|00000680| 74 65 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e |te.end r|epeat.en|
|00000690| 64 20 6c 6f 76 65 20 20 | 20 20 0d 0d 0d 6f 6e 20 |d love  |  ...on |
|000006a0| 50 42 0d 70 75 74 20 28 | 74 68 65 20 6c 6f 63 56 |PB.put (|the locV|
|000006b0| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|000006c0| 6f 6e 28 29 29 20 2b 20 | 31 20 69 6e 74 6f 20 64 |on()) + |1 into d|
|000006d0| 56 0d 70 75 74 20 28 74 | 68 65 20 6c 6f 63 48 20 |V.put (t|he locH |
|000006e0| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 6f |of sprit|e clicko|
|000006f0| 6e 28 29 29 20 2b 20 31 | 20 69 6e 74 6f 20 64 48 |n()) + 1| into dH|
|00000700| 0d 73 65 74 20 74 68 65 | 20 6c 6f 63 56 20 6f 66 |.set the| locV of|
|00000710| 20 73 70 72 69 74 65 20 | 63 6c 69 63 6b 4f 6e 28 | sprite |clickOn(|
|00000720| 29 20 3d 20 64 56 0d 73 | 65 74 20 74 68 65 20 6c |) = dV.s|et the l|
|00000730| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocH of s|prite cl|
|00000740| 69 63 6b 4f 6e 28 29 20 | 3d 20 64 48 0d 75 70 44 |ickOn() |= dH.upD|
|00000750| 61 74 65 53 74 61 67 65 | 0d 72 65 70 65 61 74 20 |ateStage|.repeat |
|00000760| 77 68 69 6c 65 20 73 74 | 69 6c 6c 44 6f 77 6e 28 |while st|illDown(|
|00000770| 29 0d 69 66 20 72 6f 6c | 6c 4f 76 65 72 28 63 6c |).if rol|lOver(cl|
|00000780| 69 63 6b 4f 6e 28 29 29 | 20 6f 72 20 c2 0d 20 20 |ickOn())| or ..  |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007a0| 20 20 20 20 20 28 28 6d | 6f 75 73 65 56 28 29 20 |     ((m|ouseV() |
|000007b0| 3e 3d 20 28 64 76 20 2d | 20 31 29 20 61 6e 64 20 |>= (dv -| 1) and |
|000007c0| 6d 6f 75 73 65 48 28 29 | 20 3e 3d 20 28 64 48 20 |mouseH()| >= (dH |
|000007d0| 2d 20 31 29 29 20 61 6e | 64 20 28 6d 6f 75 73 65 |- 1)) an|d (mouse|
|000007e0| 56 28 29 20 3c 3d 20 74 | 68 65 20 62 6f 74 74 6f |V() <= t|he botto|
|000007f0| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 63 6c 69 63 |m of spr|ite clic|
|00000800| 6b 4f 6e 28 29 20 20 20 | 20 20 20 20 61 6e 64 20 |kOn()   |    and |
|00000810| c2 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 75 73 65 |        |   mouse|
|00000830| 48 28 29 20 3c 3d 20 74 | 68 65 20 72 69 67 68 74 |H() <= t|he right|
|00000840| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|00000850| 4f 6e 28 29 29 29 20 74 | 68 65 6e 20 0d 73 65 74 |On())) t|hen .set|
|00000860| 20 74 68 65 20 6c 6f 63 | 56 20 6f 66 20 73 70 72 | the loc|V of spr|
|00000870| 69 74 65 20 63 6c 69 63 | 6b 4f 6e 28 29 20 3d 20 |ite clic|kOn() = |
|00000880| 64 56 0d 73 65 74 20 74 | 68 65 20 6c 6f 63 48 20 |dV.set t|he locH |
|00000890| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000008a0| 6e 28 29 20 3d 20 64 48 | 0d 65 6c 73 65 0d 73 65 |n() = dH|.else.se|
|000008b0| 74 20 74 68 65 20 6c 6f | 63 56 20 6f 66 20 73 70 |t the lo|cV of sp|
|000008c0| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 3d |rite cli|ckOn() =|
|000008d0| 20 64 56 20 2d 20 31 0d | 73 65 74 20 74 68 65 20 | dV - 1.|set the |
|000008e0| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 63 |locH of |sprite c|
|000008f0| 6c 69 63 6b 4f 6e 28 29 | 20 3d 20 64 48 20 2d 20 |lickOn()| = dH - |
|00000900| 31 0d 65 6e 64 20 69 66 | 0d 75 70 44 61 74 65 53 |1.end if|.upDateS|
|00000910| 74 61 67 65 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |tage.end| repeat.|
|00000920| 70 75 74 20 72 6f 6c 6c | 4f 76 65 72 28 63 6c 69 |put roll|Over(cli|
|00000930| 63 6b 4f 6e 28 29 29 20 | 69 6e 74 6f 20 52 0d 73 |ckOn()) |into R.s|
|00000940| 65 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |et the l|ocV of s|
|00000950| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00000960| 3d 20 64 56 20 2d 20 31 | 0d 73 65 74 20 74 68 65 |= dV - 1|.set the|
|00000970| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00000980| 63 6c 69 63 6b 4f 6e 28 | 29 20 3d 20 64 48 20 2d |clickOn(|) = dH -|
|00000990| 20 31 0d 75 70 44 61 74 | 65 53 74 61 67 65 0d 72 | 1.upDat|eStage.r|
|000009a0| 65 74 75 72 6e 20 52 0d | 65 6e 64 20 50 42 20 20 |eturn R.|end PB  |
|000009b0| 20 20 0d 0d 0d 6f 6e 20 | 70 75 70 70 65 74 4f 6e |  ...on |puppetOn|
|000009c0| 20 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 0d 69 | spriteN|umItem.i|
|000009d0| 66 20 69 6e 74 65 67 65 | 72 50 28 73 70 72 69 74 |f intege|rP(sprit|
|000009e0| 65 4e 75 6d 49 74 65 6d | 29 20 74 68 65 6e 20 70 |eNumItem|) then p|
|000009f0| 75 74 20 73 74 72 69 6e | 67 28 73 70 72 69 74 65 |ut strin|g(sprite|
|00000a00| 4e 75 6d 49 74 65 6d 29 | 20 69 6e 74 6f 20 73 70 |NumItem)| into sp|
|00000a10| 72 69 74 65 4e 75 6d 49 | 74 65 6d 0d 72 65 70 65 |riteNumI|tem.repe|
|00000a20| 61 74 20 77 69 74 68 20 | 6e 20 3d 20 31 20 74 6f |at with |n = 1 to|
|00000a30| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 69 | the num|ber of i|
|00000a40| 74 65 6d 73 20 69 6e 20 | 73 70 72 69 74 65 4e 75 |tems in |spriteNu|
|00000a50| 6d 49 74 65 6d 0d 70 75 | 70 70 65 74 53 70 72 69 |mItem.pu|ppetSpri|
|00000a60| 74 65 20 69 6e 74 65 67 | 65 72 28 69 74 65 6d 20 |te integ|er(item |
|00000a70| 6e 20 6f 66 20 73 70 72 | 69 74 65 4e 75 6d 49 74 |n of spr|iteNumIt|
|00000a80| 65 6d 29 2c 20 54 52 55 | 45 0d 65 6e 64 20 72 65 |em), TRU|E.end re|
|00000a90| 70 65 61 74 0d 65 6e 64 | 20 70 75 70 70 65 74 4f |peat.end| puppetO|
|00000aa0| 6e 0d 0d 0d 0d 6f 6e 20 | 70 75 70 70 65 74 4f 66 |n....on |puppetOf|
|00000ab0| 66 20 73 70 72 69 74 65 | 4e 75 6d 49 74 65 6d 0d |f sprite|NumItem.|
|00000ac0| 69 66 20 69 6e 74 65 67 | 65 72 50 28 73 70 72 69 |if integ|erP(spri|
|00000ad0| 74 65 4e 75 6d 49 74 65 | 6d 29 20 74 68 65 6e 20 |teNumIte|m) then |
|00000ae0| 70 75 74 20 73 74 72 69 | 6e 67 28 73 70 72 69 74 |put stri|ng(sprit|
|00000af0| 65 4e 75 6d 49 74 65 6d | 29 20 69 6e 74 6f 20 73 |eNumItem|) into s|
|00000b00| 70 72 69 74 65 4e 75 6d | 49 74 65 6d 0d 72 65 70 |priteNum|Item.rep|
|00000b10| 65 61 74 20 77 69 74 68 | 20 6e 20 3d 20 31 20 74 |eat with| n = 1 t|
|00000b20| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |o the nu|mber of |
|00000b30| 69 74 65 6d 73 20 69 6e | 20 73 70 72 69 74 65 4e |items in| spriteN|
|00000b40| 75 6d 49 74 65 6d 0d 70 | 75 70 70 65 74 53 70 72 |umItem.p|uppetSpr|
|00000b50| 69 74 65 20 69 6e 74 65 | 67 65 72 28 69 74 65 6d |ite inte|ger(item|
|00000b60| 20 6e 20 6f 66 20 73 70 | 72 69 74 65 4e 75 6d 49 | n of sp|riteNumI|
|00000b70| 74 65 6d 29 2c 20 46 41 | 4c 53 45 0d 65 6e 64 20 |tem), FA|LSE.end |
|00000b80| 72 65 70 65 61 74 0d 65 | 6e 64 20 70 75 70 70 65 |repeat.e|nd puppe|
|00000b90| 74 4f 66 66 20 20 20 20 | 0d 0d 0d 0d 6f 6e 20 70 |tOff    |....on p|
|00000ba0| 75 70 70 65 74 43 6c 65 | 61 72 0d 72 65 70 65 61 |uppetCle|ar.repea|
|00000bb0| 74 20 77 69 74 68 20 6e | 20 3d 20 31 20 74 6f 20 |t with n| = 1 to |
|00000bc0| 32 34 0d 69 66 20 74 68 | 65 20 74 79 70 65 20 6f |24.if th|e type o|
|00000bd0| 66 20 73 70 72 69 74 65 | 20 6e 20 3c 3e 20 30 20 |f sprite| n <> 0 |
|00000be0| 74 68 65 6e 20 70 75 70 | 70 65 74 53 70 72 69 74 |then pup|petSprit|
|00000bf0| 65 20 6e 2c 20 46 41 4c | 53 45 0d 65 6e 64 20 72 |e n, FAL|SE.end r|
|00000c00| 65 70 65 61 74 0d 65 6e | 64 20 70 75 70 70 65 74 |epeat.en|d puppet|
|00000c10| 43 6c 65 61 72 20 20 20 | 20 0d 0d 0d 0d 6f 6e 20 |Clear   | ....on |
|00000c20| 70 75 70 70 65 74 41 6c | 6c 20 20 20 20 0d 72 65 |puppetAl|l    .re|
|00000c30| 70 65 61 74 20 77 69 74 | 68 20 6e 20 3d 20 31 20 |peat wit|h n = 1 |
|00000c40| 74 6f 20 32 34 0d 69 66 | 20 74 68 65 20 74 79 70 |to 24.if| the typ|
|00000c50| 65 20 6f 66 20 73 70 72 | 69 74 65 20 6e 20 3c 3e |e of spr|ite n <>|
|00000c60| 20 30 20 74 68 65 6e 20 | 70 75 70 70 65 74 53 70 | 0 then |puppetSp|
|00000c70| 72 69 74 65 20 6e 2c 20 | 54 52 55 45 0d 65 6e 64 |rite n, |TRUE.end|
|00000c80| 20 72 65 70 65 61 74 0d | 65 6e 64 20 70 75 70 70 | repeat.|end pupp|
|00000c90| 65 74 41 6c 6c 20 20 20 | 20 0d 0d 0d 0d 6f 6e 20 |etAll   | ....on |
|00000ca0| 63 75 72 43 68 61 6e 31 | 0d 77 68 65 6e 20 6d 6f |curChan1|.when mo|
|00000cb0| 75 73 65 44 6f 77 6e 20 | 74 68 65 6e 20 6e 6f 74 |useDown |then not|
|00000cc0| 68 69 6e 67 20 0d 63 75 | 72 73 6f 72 20 31 32 38 |hing .cu|rsor 128|
|00000cd0| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 32 39 |.love.cu|rsor 129|
|00000ce0| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 33 30 |.love.cu|rsor 130|
|00000cf0| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 33 31 |.love.cu|rsor 131|
|00000d00| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 33 32 |.love.cu|rsor 132|
|00000d10| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 33 33 |.love.cu|rsor 133|
|00000d20| 0d 65 6e 64 20 63 75 72 | 43 68 61 6e 31 0d 0d 0d |.end cur|Chan1...|
|00000d30| 6f 6e 20 63 75 72 43 68 | 61 6e 32 0d 77 68 65 6e |on curCh|an2.when|
|00000d40| 20 6d 6f 75 73 65 44 6f | 77 6e 20 74 68 65 6e 20 | mouseDo|wn then |
|00000d50| 6e 6f 74 68 69 6e 67 20 | 0d 63 75 72 73 6f 72 20 |nothing |.cursor |
|00000d60| 31 38 37 0d 6c 6f 76 65 | 0d 63 75 72 73 6f 72 20 |187.love|.cursor |
|00000d70| 31 38 38 0d 6c 6f 76 65 | 0d 63 75 72 73 6f 72 20 |188.love|.cursor |
|00000d80| 31 38 39 0d 6c 6f 76 65 | 0d 63 75 72 73 6f 72 20 |189.love|.cursor |
|00000d90| 31 39 30 0d 6c 6f 76 65 | 0d 63 75 72 73 6f 72 20 |190.love|.cursor |
|00000da0| 31 39 31 0d 6c 6f 76 65 | 20 0d 63 75 72 73 6f 72 |191.love| .cursor|
|00000db0| 20 31 39 32 0d 6c 6f 76 | 65 0d 63 75 72 73 6f 72 | 192.lov|e.cursor|
|00000dc0| 20 31 39 33 0d 65 6e 64 | 20 63 75 72 43 68 61 6e | 193.end| curChan|
|00000dd0| 32 0d 0d 0d 6f 6e 20 63 | 75 72 43 68 61 6e 33 0d |2...on c|urChan3.|
|00000de0| 77 68 65 6e 20 6d 6f 75 | 73 65 44 6f 77 6e 20 74 |when mou|seDown t|
|00000df0| 68 65 6e 20 6e 6f 74 68 | 69 6e 67 20 0d 63 75 72 |hen noth|ing .cur|
|00000e00| 73 6f 72 20 31 37 31 0d | 6c 6f 76 65 0d 63 75 72 |sor 171.|love.cur|
|00000e10| 73 6f 72 20 31 37 32 0d | 6c 6f 76 65 0d 63 75 72 |sor 172.|love.cur|
|00000e20| 73 6f 72 20 31 37 33 0d | 6c 6f 76 65 0d 63 75 72 |sor 173.|love.cur|
|00000e30| 73 6f 72 20 31 37 34 0d | 6c 6f 76 65 0d 63 75 72 |sor 174.|love.cur|
|00000e40| 73 6f 72 20 31 37 35 0d | 6c 6f 76 65 0d 63 75 72 |sor 175.|love.cur|
|00000e50| 73 6f 72 20 31 37 36 0d | 65 6e 64 20 63 75 72 43 |sor 176.|end curC|
|00000e60| 68 61 6e 33 20 20 20 20 | 0d 0d 0d 6f 6e 20 63 75 |han3    |...on cu|
|00000e70| 72 73 6f 72 4e 75 6d 62 | 65 72 0d 77 68 65 6e 20 |rsorNumb|er.when |
|00000e80| 6d 6f 75 73 65 44 6f 77 | 6e 20 74 68 65 6e 20 63 |mouseDow|n then c|
|00000e90| 75 72 73 6f 72 20 33 30 | 34 0d 65 6e 64 20 63 75 |ursor 30|4.end cu|
|00000ea0| 72 73 6f 72 4e 75 6d 62 | 65 72 20 20 20 0d 0d 0d |rsorNumb|er   ...|
|00000eb0| 6f 6e 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 32 |on curso|rNumber2|
|00000ec0| 30 30 0d 63 75 72 73 6f | 72 20 32 30 30 0d 65 6e |00.curso|r 200.en|
|00000ed0| 64 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 32 30 |d cursor|Number20|
|00000ee0| 30 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 |0   ...o|n cursor|
|00000ef0| 4e 75 6d 62 65 72 32 36 | 30 0d 63 75 72 73 6f 72 |Number26|0.cursor|
|00000f00| 20 32 36 30 0d 65 6e 64 | 20 63 75 72 73 6f 72 4e | 260.end| cursorN|
|00000f10| 75 6d 62 65 72 32 36 30 | 20 20 20 20 0d 0d 0d 6f |umber260|    ...o|
|00000f20| 6e 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 32 38 |n cursor|Number28|
|00000f30| 30 0d 63 75 72 73 6f 72 | 20 32 38 30 0d 65 6e 64 |0.cursor| 280.end|
|00000f40| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 32 38 30 | cursorN|umber280|
|00000f50| 20 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 |    ...o|n cursor|
|00000f60| 4e 75 6d 62 65 72 33 30 | 33 0d 63 75 72 73 6f 72 |Number30|3.cursor|
|00000f70| 20 33 30 33 0d 65 6e 64 | 20 63 75 72 73 6f 72 4e | 303.end| cursorN|
|00000f80| 75 6d 62 65 72 33 30 33 | 20 20 20 20 0d 0d 0d 6f |umber303|    ...o|
|00000f90| 6e 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 33 30 |n cursor|Number30|
|00000fa0| 35 0d 63 75 72 73 6f 72 | 20 33 30 35 0d 65 6e 64 |5.cursor| 305.end|
|00000fb0| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 33 30 35 | cursorN|umber305|
|00000fc0| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e |   ...on| cursorN|
|00000fd0| 75 6d 62 65 72 33 30 36 | 0d 63 75 72 73 6f 72 20 |umber306|.cursor |
|00000fe0| 33 30 36 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |306.end |cursorNu|
|00000ff0| 6d 62 65 72 33 30 36 20 | 20 20 20 0d 0d 0d 6f 6e |mber306 |   ...on|
|00001000| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 33 30 37 | cursorN|umber307|
|00001010| 0d 63 75 72 73 6f 72 20 | 33 30 37 0d 65 6e 64 20 |.cursor |307.end |
|00001020| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 37 20 |cursorNu|mber307 |
|00001030| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e |   ...on| cursorN|
|00001040| 75 6d 62 65 72 33 30 38 | 0d 63 75 72 73 6f 72 20 |umber308|.cursor |
|00001050| 33 30 38 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |308.end |cursorNu|
|00001060| 6d 62 65 72 33 30 38 20 | 20 20 0d 0d 0d 6f 6e 20 |mber308 |  ...on |
|00001070| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 39 0d |cursorNu|mber309.|
|00001080| 63 75 72 73 6f 72 20 33 | 30 39 0d 65 6e 64 20 63 |cursor 3|09.end c|
|00001090| 75 72 73 6f 72 4e 75 6d | 62 65 72 33 30 39 0d 0d |ursorNum|ber309..|
|000010a0| 0d 6f 6e 20 63 75 72 73 | 6f 72 4e 75 6d 62 65 72 |.on curs|orNumber|
|000010b0| 33 31 30 0d 63 75 72 73 | 6f 72 20 33 31 30 0d 65 |310.curs|or 310.e|
|000010c0| 6e 64 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 33 |nd curso|rNumber3|
|000010d0| 31 30 20 20 20 20 0d 0d | 0d 6f 6e 20 63 75 72 73 |10    ..|.on curs|
|000010e0| 6f 72 4e 75 6d 62 65 72 | 31 0d 63 75 72 73 6f 72 |orNumber|1.cursor|
|000010f0| 20 2d 31 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 | -1.end |cursorNu|
|00001100| 6d 62 65 72 31 20 20 20 | 20 0d 0d 0d 6f 6e 20 64 |mber1   | ...on d|
|00001110| 72 61 67 53 70 63 69 61 | 6c 0d 70 75 70 70 65 74 |ragSpcia|l.puppet|
|00001120| 53 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |Sprite c|lickOn()|
|00001130| 2c 20 54 52 55 45 0d 0d | 70 75 74 20 6d 6f 75 73 |, TRUE..|put mous|
|00001140| 65 48 28 29 20 2d 20 74 | 68 65 20 6c 6f 63 48 20 |eH() - t|he locH |
|00001150| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|00001160| 6e 28 29 20 69 6e 74 6f | 20 6d 48 0d 70 75 74 20 |n() into| mH.put |
|00001170| 6d 6f 75 73 65 56 28 29 | 20 2d 20 74 68 65 20 6c |mouseV()| - the l|
|00001180| 6f 63 56 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocV of s|prite cl|
|00001190| 69 63 6b 4f 6e 28 29 20 | 69 6e 74 6f 20 6d 56 0d |ickOn() |into mV.|
|000011a0| 0d 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 73 74 |.repeat |while st|
|000011b0| 69 6c 6c 44 6f 77 6e 28 | 29 0d 73 65 74 20 74 68 |illDown(|).set th|
|000011c0| 65 20 6c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e locH o|f sprite|
|000011d0| 20 63 6c 69 63 6b 4f 6e | 28 29 20 3d 20 6d 6f 75 | clickOn|() = mou|
|000011e0| 73 65 48 28 29 20 2d 20 | 6d 48 0d 73 65 74 20 74 |seH() - |mH.set t|
|000011f0| 68 65 20 6c 6f 63 56 20 | 6f 66 20 73 70 72 69 74 |he locV |of sprit|
|00001200| 65 20 63 6c 69 63 6b 4f | 6e 28 29 20 3d 20 6d 6f |e clickO|n() = mo|
|00001210| 75 73 65 56 28 29 20 2d | 20 6d 56 0d 75 70 44 61 |useV() -| mV.upDa|
|00001220| 74 65 53 74 61 67 65 0d | 65 6e 64 20 72 65 70 65 |teStage.|end repe|
|00001230| 61 74 0d 65 6e 64 20 64 | 72 61 67 53 70 63 69 61 |at.end d|ragSpcia|
|00001240| 6c 20 20 20 20 0d 0d 0d | 6f 6e 20 6d 6f 76 65 53 |l    ...|on moveS|
|00001250| 70 72 69 74 65 20 73 70 | 4e 75 6d 2c 20 48 2c 20 |prite sp|Num, H, |
|00001260| 56 0d 0d 70 75 74 20 35 | 20 69 6e 74 6f 20 6d 6f |V..put 5| into mo|
|00001270| 76 65 52 61 74 65 0d 0d | 70 75 70 70 65 74 53 70 |veRate..|puppetSp|
|00001280| 72 69 74 65 20 73 70 4e | 75 6d 2c 20 54 52 55 45 |rite spN|um, TRUE|
|00001290| 0d 70 75 74 20 74 68 65 | 20 6c 6f 63 48 20 6f 66 |.put the| locH of|
|000012a0| 20 73 70 72 69 74 65 20 | 73 70 4e 75 6d 20 69 6e | sprite |spNum in|
|000012b0| 74 6f 20 73 48 0d 70 75 | 74 20 74 68 65 20 6c 6f |to sH.pu|t the lo|
|000012c0| 63 56 20 6f 66 20 73 70 | 72 69 74 65 20 73 70 4e |cV of sp|rite spN|
|000012d0| 75 6d 20 69 6e 74 6f 20 | 73 56 0d 0d 70 75 74 20 |um into |sV..put |
|000012e0| 48 20 2d 20 73 48 20 69 | 6e 74 6f 20 6d 6f 76 65 |H - sH i|nto move|
|000012f0| 48 20 0d 70 75 74 20 56 | 20 2d 20 73 56 20 69 6e |H .put V| - sV in|
|00001300| 74 6f 20 6d 6f 76 65 56 | 0d 0d 70 75 74 20 61 62 |to moveV|..put ab|
|00001310| 73 28 6d 6f 76 65 48 20 | 2a 20 28 61 62 73 28 6d |s(moveH |* (abs(m|
|00001320| 6f 76 65 48 29 20 3e 3d | 20 61 62 73 28 6d 6f 76 |oveH) >=| abs(mov|
|00001330| 65 56 29 29 20 2b 20 c2 | 0d 20 20 20 20 6d 6f 76 |eV)) + .|.    mov|
|00001340| 65 56 20 2a 20 28 61 62 | 73 28 6d 6f 76 65 48 29 |eV * (ab|s(moveH)|
|00001350| 20 3c 20 61 62 73 28 6d | 6f 76 65 56 29 29 29 20 | < abs(m|oveV))) |
|00001360| 69 6e 74 6f 20 72 65 70 | 65 61 74 54 69 6d 65 0d |into rep|eatTime.|
|00001370| 0d 69 66 20 72 65 70 65 | 61 74 54 69 6d 65 20 3c |.if repe|atTime <|
|00001380| 3e 20 30 20 74 68 65 6e | 0d 0d 69 66 20 6d 6f 76 |> 0 then|..if mov|
|00001390| 65 48 20 3c 3e 20 30 20 | 74 68 65 6e 20 0d 70 75 |eH <> 0 |then .pu|
|000013a0| 74 20 28 61 62 73 28 6d | 6f 76 65 48 29 20 3e 3d |t (abs(m|oveH) >=|
|000013b0| 20 61 62 73 28 6d 6f 76 | 65 56 29 29 20 2a 20 6d | abs(mov|eV)) * m|
|000013c0| 6f 76 65 48 20 2f 20 61 | 62 73 28 6d 6f 76 65 48 |oveH / a|bs(moveH|
|000013d0| 29 20 2b c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |) +..   |        |
|000013e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 61 62 |        |     (ab|
|000013f0| 73 28 6d 6f 76 65 48 29 | 20 3c 20 61 62 73 28 6d |s(moveH)| < abs(m|
|00001400| 6f 76 65 56 29 29 20 2a | 20 31 2e 30 20 2a 20 6d |oveV)) *| 1.0 * m|
|00001410| 6f 76 65 48 20 2f 20 72 | 65 70 65 61 74 54 69 6d |oveH / r|epeatTim|
|00001420| 65 20 69 6e 74 6f 20 70 | 6c 75 73 48 0d 65 6c 73 |e into p|lusH.els|
|00001430| 65 20 70 75 74 20 30 20 | 69 6e 74 6f 20 70 6c 75 |e put 0 |into plu|
|00001440| 73 48 0d 69 66 20 6d 6f | 76 65 56 20 3c 3e 20 30 |sH.if mo|veV <> 0|
|00001450| 20 74 68 65 6e 0d 70 75 | 74 20 28 61 62 73 28 6d | then.pu|t (abs(m|
|00001460| 6f 76 65 56 29 20 3e 3d | 20 61 62 73 28 6d 6f 76 |oveV) >=| abs(mov|
|00001470| 65 48 29 29 20 2a 20 6d | 6f 76 65 56 20 2f 20 61 |eH)) * m|oveV / a|
|00001480| 62 73 28 6d 6f 76 65 56 | 29 20 2b c2 0d 20 20 20 |bs(moveV|) +..   |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000014a0| 20 20 20 20 20 28 61 62 | 73 28 6d 6f 76 65 56 29 |     (ab|s(moveV)|
|000014b0| 20 3c 20 61 62 73 28 6d | 6f 76 65 48 29 29 20 2a | < abs(m|oveH)) *|
|000014c0| 20 31 2e 30 20 2a 20 6d | 6f 76 65 56 20 2f 20 72 | 1.0 * m|oveV / r|
|000014d0| 65 70 65 61 74 54 69 6d | 65 20 69 6e 74 6f 20 70 |epeatTim|e into p|
|000014e0| 6c 75 73 56 0d 65 6c 73 | 65 20 70 75 74 20 30 20 |lusV.els|e put 0 |
|000014f0| 69 6e 74 6f 20 70 6c 75 | 73 56 0d 0d 72 65 70 65 |into plu|sV..repe|
|00001500| 61 74 20 77 69 74 68 20 | 6e 20 3d 20 35 30 30 20 |at with |n = 500 |
|00001510| 74 6f 20 72 65 70 65 61 | 74 54 69 6d 65 0d 0d 70 |to repea|tTime..p|
|00001520| 75 74 20 73 48 20 2b 20 | 70 6c 75 73 48 20 69 6e |ut sH + |plusH in|
|00001530| 74 6f 20 73 48 0d 70 75 | 74 20 73 56 20 2b 20 70 |to sH.pu|t sV + p|
|00001540| 6c 75 73 56 20 69 6e 74 | 6f 20 73 56 0d 0d 73 65 |lusV int|o sV..se|
|00001550| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|00001560| 72 69 74 65 20 73 70 4e | 75 6d 20 3d 20 69 6e 74 |rite spN|um = int|
|00001570| 65 67 65 72 28 73 48 29 | 0d 73 65 74 20 74 68 65 |eger(sH)|.set the|
|00001580| 20 6c 6f 63 56 20 6f 66 | 20 73 70 72 69 74 65 20 | locV of| sprite |
|00001590| 73 70 4e 75 6d 20 3d 20 | 69 6e 74 65 67 65 72 28 |spNum = |integer(|
|000015a0| 73 56 29 0d 75 70 44 61 | 74 65 53 74 61 67 65 0d |sV).upDa|teStage.|
|000015b0| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 0d 65 6e 64 |.end rep|eat..end|
|000015c0| 20 69 66 0d 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 | if..set| the loc|
|000015d0| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |H of spr|ite spNu|
|000015e0| 6d 20 3d 20 48 0d 73 65 | 74 20 74 68 65 20 6c 6f |m = H.se|t the lo|
|000015f0| 63 56 20 6f 66 20 73 70 | 72 69 74 65 20 73 70 4e |cV of sp|rite spN|
|00001600| 75 6d 20 3d 20 56 0d 75 | 70 64 61 74 65 53 74 61 |um = V.u|pdateSta|
|00001610| 67 65 0d 65 6e 64 20 6d | 6f 76 65 53 70 72 69 74 |ge.end m|oveSprit|
|00001620| 65 20 20 20 20 0d 0d 0d | 6f 6e 20 67 69 76 65 55 |e    ...|on giveU|
|00001630| 70 4b 65 79 0d 69 66 20 | 74 68 65 20 6b 65 79 43 |pKey.if |the keyC|
|00001640| 6f 64 65 20 3d 20 35 33 | 20 74 68 65 6e 20 67 6f |ode = 53| then go|
|00001650| 20 74 6f 20 22 4e 45 58 | 54 22 0d 65 6c 73 65 0d | to "NEX|T".else.|
|00001660| 69 66 20 74 68 65 20 6b | 65 79 43 6f 64 65 20 3d |if the k|eyCode =|
|00001670| 20 33 36 20 74 68 65 6e | 20 70 6c 61 79 20 22 50 | 36 then| play "P|
|00001680| 61 6e 69 63 22 0d 65 6c | 73 65 0d 69 66 20 6b 65 |anic".el|se.if ke|
|00001690| 79 28 29 20 3d 20 22 51 | 22 20 61 6e 64 20 63 6f |y() = "Q|" and co|
|000016a0| 6d 6d 61 6e 64 44 6f 77 | 6e 28 29 20 74 68 65 6e |mmandDow|n() then|
|000016b0| 20 70 6c 61 79 20 22 51 | 75 69 74 22 0d 65 6e 64 | play "Q|uit".end|
|000016c0| 20 69 66 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 | if.end |if.end i|
|000016d0| 66 20 20 20 0d 65 6e 64 | 20 67 69 76 65 55 70 4b |f   .end| giveUpK|
|000016e0| 65 79 0d 0d 0d 0d 6f 6e | 20 63 6f 6c 6f 72 43 68 |ey....on| colorCh|
|000016f0| 61 6e 67 65 0d 73 65 74 | 20 74 68 65 20 63 6f 6c |ange.set| the col|
|00001700| 6f 72 44 65 70 74 68 20 | 3d 33 32 0d 69 66 20 63 |orDepth |=32.if c|
|00001710| 6f 6c 6f 72 44 65 70 74 | 68 28 29 20 3d 20 33 32 |olorDept|h() = 32|
|00001720| 20 74 68 65 6e 20 73 65 | 74 20 4f 48 54 53 55 4b | then se|t OHTSUK|
|00001730| 49 20 3d 20 33 32 20 20 | 20 0d 65 6c 73 65 0d 73 |I = 32  | .else.s|
|00001740| 65 74 20 74 68 65 20 63 | 6f 6c 6f 72 44 65 70 74 |et the c|olorDept|
|00001750| 68 20 3d 31 36 0d 69 66 | 20 63 6f 6c 6f 72 44 65 |h =16.if| colorDe|
|00001760| 70 74 68 28 29 20 3d 20 | 31 36 20 74 68 65 6e 20 |pth() = |16 then |
|00001770| 73 65 74 20 4f 48 54 53 | 55 4b 49 20 3d 20 31 36 |set OHTS|UKI = 16|
|00001780| 20 20 20 20 0d 65 6c 73 | 65 0d 73 65 74 20 74 68 |    .els|e.set th|
|00001790| 65 20 63 6f 6c 6f 72 44 | 65 70 74 68 20 3d 38 0d |e colorD|epth =8.|
|000017a0| 69 66 20 63 6f 6c 6f 72 | 44 65 70 74 68 28 29 20 |if color|Depth() |
|000017b0| 3d 20 38 20 74 68 65 6e | 20 73 65 74 20 4f 48 54 |= 8 then| set OHT|
|000017c0| 53 55 4b 49 20 3d 20 38 | 20 20 20 20 0d 65 6e 64 |SUKI = 8|    .end|
|000017d0| 20 69 66 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 | if.end |if.end i|
|000017e0| 66 20 0d 65 6e 64 20 63 | 6f 6c 6f 72 43 68 61 6e |f .end c|olorChan|
|000017f0| 67 65 0d 0d 0d 6f 6e 20 | 63 6f 6c 6f 72 43 68 61 |ge...on |colorCha|
|00001800| 6e 67 65 38 0d 73 65 74 | 20 74 68 65 20 63 6f 6c |nge8.set| the col|
|00001810| 6f 72 44 65 70 74 68 20 | 3d 20 38 20 0d 65 6e 64 |orDepth |= 8 .end|
|00001820| 20 63 6f 6c 6f 72 43 68 | 61 6e 67 65 38 0d 0d 0d | colorCh|ange8...|
|00001830| 6f 6e 20 56 43 0d 69 66 | 20 74 68 65 20 73 6f 75 |on VC.if| the sou|
|00001840| 6e 64 4c 65 76 65 6c 20 | 3d 20 30 20 74 68 65 6e |ndLevel |= 0 then|
|00001850| 0d 70 75 74 20 22 30 22 | 20 69 6e 74 6f 20 66 69 |.put "0"| into fi|
|00001860| 65 6c 64 20 22 56 4f 4c | 22 0d 65 6c 73 65 20 69 |eld "VOL|".else i|
|00001870| 66 20 74 68 65 20 73 6f | 75 6e 64 4c 65 76 65 6c |f the so|undLevel|
|00001880| 20 3d 20 31 20 74 68 65 | 6e 0d 70 75 74 20 22 31 | = 1 the|n.put "1|
|00001890| 22 20 69 6e 74 6f 20 66 | 69 65 6c 64 20 22 56 4f |" into f|ield "VO|
|000018a0| 4c 22 0d 65 6c 73 65 20 | 69 66 20 74 68 65 20 73 |L".else |if the s|
|000018b0| 6f 75 6e 64 4c 65 76 65 | 6c 20 3d 20 32 20 74 68 |oundLeve|l = 2 th|
|000018c0| 65 6e 0d 70 75 74 20 22 | 32 22 20 69 6e 74 6f 20 |en.put "|2" into |
|000018d0| 66 69 65 6c 64 20 22 56 | 4f 4c 22 0d 65 6c 73 65 |field "V|OL".else|
|000018e0| 20 69 66 20 74 68 65 20 | 73 6f 75 6e 64 4c 65 76 | if the |soundLev|
|000018f0| 65 6c 20 3d 20 33 20 74 | 68 65 6e 0d 70 75 74 20 |el = 3 t|hen.put |
|00001900| 22 33 22 20 69 6e 74 6f | 20 66 69 65 6c 64 20 22 |"3" into| field "|
|00001910| 56 4f 4c 22 0d 65 6c 73 | 65 20 69 66 20 74 68 65 |VOL".els|e if the|
|00001920| 20 73 6f 75 6e 64 4c 65 | 76 65 6c 20 3d 20 34 20 | soundLe|vel = 4 |
|00001930| 74 68 65 6e 0d 70 75 74 | 20 22 34 22 20 69 6e 74 |then.put| "4" int|
|00001940| 6f 20 66 69 65 6c 64 20 | 22 56 4f 4c 22 0d 65 6c |o field |"VOL".el|
|00001950| 73 65 20 69 66 20 74 68 | 65 20 73 6f 75 6e 64 4c |se if th|e soundL|
|00001960| 65 76 65 6c 20 3d 20 35 | 20 74 68 65 6e 0d 70 75 |evel = 5| then.pu|
|00001970| 74 20 22 35 22 20 69 6e | 74 6f 20 66 69 65 6c 64 |t "5" in|to field|
|00001980| 20 22 56 4f 4c 22 0d 65 | 6c 73 65 20 69 66 20 74 | "VOL".e|lse if t|
|00001990| 68 65 20 73 6f 75 6e 64 | 4c 65 76 65 6c 20 3d 20 |he sound|Level = |
|000019a0| 36 20 74 68 65 6e 0d 70 | 75 74 20 22 36 22 20 69 |6 then.p|ut "6" i|
|000019b0| 6e 74 6f 20 66 69 65 6c | 64 20 22 56 4f 4c 22 0d |nto fiel|d "VOL".|
|000019c0| 65 6c 73 65 20 69 66 20 | 74 68 65 20 73 6f 75 6e |else if |the soun|
|000019d0| 64 4c 65 76 65 6c 20 3d | 20 37 20 74 68 65 6e 0d |dLevel =| 7 then.|
|000019e0| 70 75 74 20 22 37 22 20 | 69 6e 74 6f 20 66 69 65 |put "7" |into fie|
|000019f0| 6c 64 20 22 56 4f 4c 22 | 0d 65 6e 64 20 69 66 0d |ld "VOL"|.end if.|
|00001a00| 65 6e 64 20 56 43 0d 0d | 6f 6e 20 56 43 32 0d 69 |end VC..|on VC2.i|
|00001a10| 66 20 66 69 65 6c 64 20 | 22 56 4f 4c 22 20 3d 20 |f field |"VOL" = |
|00001a20| 22 30 22 20 74 68 65 6e | 0d 73 65 74 20 74 68 65 |"0" then|.set the|
|00001a30| 20 73 6f 75 6e 64 4c 65 | 76 65 6c 20 3d 20 30 0d | soundLe|vel = 0.|
|00001a40| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 56 |else if |field "V|
|00001a50| 4f 4c 22 20 3d 20 22 31 | 22 20 74 68 65 6e 0d 73 |OL" = "1|" then.s|
|00001a60| 65 74 20 74 68 65 20 73 | 6f 75 6e 64 4c 65 76 65 |et the s|oundLeve|
|00001a70| 6c 20 3d 20 31 0d 65 6c | 73 65 20 69 66 20 66 69 |l = 1.el|se if fi|
|00001a80| 65 6c 64 20 22 56 4f 4c | 22 20 3d 20 22 32 22 20 |eld "VOL|" = "2" |
|00001a90| 74 68 65 6e 0d 73 65 74 | 20 74 68 65 20 73 6f 75 |then.set| the sou|
|00001aa0| 6e 64 4c 65 76 65 6c 20 | 3d 20 32 0d 65 6c 73 65 |ndLevel |= 2.else|
|00001ab0| 20 69 66 20 66 69 65 6c | 64 20 22 56 4f 4c 22 20 | if fiel|d "VOL" |
|00001ac0| 3d 20 22 33 22 20 74 68 | 65 6e 0d 73 65 74 20 74 |= "3" th|en.set t|
|00001ad0| 68 65 20 73 6f 75 6e 64 | 4c 65 76 65 6c 20 3d 20 |he sound|Level = |
|00001ae0| 33 0d 65 6c 73 65 20 69 | 66 20 66 69 65 6c 64 20 |3.else i|f field |
|00001af0| 22 56 4f 4c 22 20 3d 20 | 22 34 22 20 74 68 65 6e |"VOL" = |"4" then|
|00001b00| 0d 73 65 74 20 74 68 65 | 20 73 6f 75 6e 64 4c 65 |.set the| soundLe|
|00001b10| 76 65 6c 20 3d 20 34 0d | 65 6c 73 65 20 69 66 20 |vel = 4.|else if |
|00001b20| 66 69 65 6c 64 20 22 56 | 4f 4c 22 20 3d 20 22 35 |field "V|OL" = "5|
|00001b30| 22 20 74 68 65 6e 0d 73 | 65 74 20 74 68 65 20 73 |" then.s|et the s|
|00001b40| 6f 75 6e 64 4c 65 76 65 | 6c 20 3d 20 35 0d 65 6c |oundLeve|l = 5.el|
|00001b50| 73 65 20 69 66 20 66 69 | 65 6c 64 20 22 56 4f 4c |se if fi|eld "VOL|
|00001b60| 22 20 3d 20 22 36 22 20 | 74 68 65 6e 0d 73 65 74 |" = "6" |then.set|
|00001b70| 20 74 68 65 20 73 6f 75 | 6e 64 4c 65 76 65 6c 20 | the sou|ndLevel |
|00001b80| 3d 20 36 0d 65 6c 73 65 | 20 69 66 20 66 69 65 6c |= 6.else| if fiel|
|00001b90| 64 20 22 56 4f 4c 22 20 | 3d 20 22 37 22 20 74 68 |d "VOL" |= "7" th|
|00001ba0| 65 6e 0d 73 65 74 20 74 | 68 65 20 73 6f 75 6e 64 |en.set t|he sound|
|00001bb0| 4c 65 76 65 6c 20 3d 20 | 37 0d 65 6e 64 20 69 66 |Level = |7.end if|
|00001bc0| 0d 65 6e 64 20 56 43 32 | 0d 0d 0d 25 42 69 67 20 |.end VC2|...%Big |
|00001bd0| 4d 6f 6f 6e 20 53 74 75 | 64 69 6f 20 2d 20 54 68 |Moon Stu|dio - Th|
|00001be0| 65 20 4f 6e 65 20 43 6f | 72 70 6f 72 61 74 69 6f |e One Co|rporatio|
|00001bf0| 6e 00 00                |                         |n..     |        |
+--------+-------------------------+-------------------------+--------+--------+